home *** CD-ROM | disk | FTP | other *** search
/ Amiga ACS 1998 #2 / amigaacscoverdisc1998-021998.iso / utilities / shareware / misc / mads / install / mads install < prev    next >
Encoding:
Text File  |  1997-09-11  |  8.0 KB  |  295 lines
  1. ;**********************************************************************************************
  2. ;*                                                                                            *
  3. ;*                              Install Script for MADS v1.5                                  *
  4. ;*                                                                                            *
  5. ;*                                                                                            *
  6. ;*                                                                                            *
  7. ;*  English Translation: Alvaro Thompson                                                      *
  8. ;*  Spanish Translation: Alvaro Thompson                                                      *
  9. ;*  Italian Translation: Ital 2.5a (© Arturo Ortino)                                          *
  10. ;*  French  Translation: Regis Falck                                                          *
  11. ;*  Swedish Translation: Timmy Olsson                                                         *
  12. ;*                                                                                            *
  13. ;**********************************************************************************************
  14. ;
  15. ; $VER: MADS Install 1.5 (09.11.97)
  16.  
  17. (set lng @language)
  18. (set version "1.5")
  19.  
  20. (if (= (exists "ENV:MADS/Name"))
  21.  (set #who (getenv "MADS/Name"))
  22. )
  23.  
  24. (if (= (exists "ENV:MADS/Version"))
  25.  (set #usedversion (getenv "MADS/Version"))
  26. )
  27.  
  28.  
  29. (
  30.  
  31. (set #info     "Welcome to the MADS Installation Script!\n\nMADS is Copyright ©1997 Alvaro Thompson\nAll Rights Reserved.")
  32. (set #where    "Where do you wish to install MADS?\n(A Drawer will be created)")
  33. (set #pp       "I am now going to install the PowerPacker.library")
  34. (set #reqtools "I am now going to install the Reqtools.library")
  35. (set #visit    "Please visit the EMS Home Page:\n\nhttp://www.agima.demon.co.uk/emailsoft/")
  36. (set #name     "Please enter your name\n(For future updates)")
  37. (set #update   (cat 'Hi there '#who'\n\nI see that you have version '#usedversion' of MADS Installed.\nShall I simply update the files? or do you want me to do a complete install?'))
  38. (set #update2  "Update")
  39. (set #install  "Complete Install")
  40.  
  41. )
  42.  
  43. (if (= lng "svenska")
  44. (
  45.  
  46. (set #info    "Välkommen till MADS Installationen! \n\nMADS är Copyright ©1997 Alvaro Thompson\nAll Rights Reserved.") 
  47. (set #where    "Var vill du installera MADS?\n(En låda kommer att skapas)")
  48. (set #pp    "Jag kommer att installera Powerpacker.library")
  49. (set #reqtools    "Jag kommer att installera Reqtools.library")
  50. (set #visit    "Besök gärna EMS Hemsida:\n\nhttp://www.agima.demon.co.uk/emailsoft/")
  51. (set #name    "Var god skriv ditt namn\n(För framtida uppgraderingar)")
  52. (set #update    (cat 'Hej '#who'\n\nJag ser att du har version '#usedversion' av MADS installerat.\nSka jag uppdatera filerna? Eller vill du att jag gör en komplett installation?'))
  53. (set #update2    "Updatera")
  54. (set #install    "Komplett installation")
  55.  
  56. ))
  57.  
  58. (if (= lng "español")
  59. (
  60.  
  61. (set #info     "¡Bienvendo a la instalación de MADS v1!\n\nMADS es Copyright ©1997 Alvaro Thompson\nTodos los derechos reservado.")
  62. (set #where    "¿Donde quieres instalar MADS?\n(Un Cajón sera creado)")
  63. (set #pp       "Ahora voy a instalar PowerPacker.library")
  64. (set #reqtools "Ahora voy a instalar Reqtools.library")
  65. (set #visit    "Visite el EMS web site:\n\nhttp://www.agima.demon.co.uk/emailsoft/")
  66. (set #name     "Ponga su nombre por favor\n(Para versiones futuras)")
  67. (set #update   (cat 'Hola '#who'\n\nVeo que tienes la version '#usedrversion' de MADS instalada.\n\nQuieres una version revisada o una instalacion completa?'))
  68. (set #update2  "Revisar")
  69. (set #install  "Instalacion Completa")
  70.  
  71. ))
  72.  
  73. (if (= lng "italiano")
  74. (
  75.  
  76. (set #info     "Benvenuto al MADS Script di Installazione!\n\nMADS è Copyright ©1997 Alvaro Thompson\nTutti i Diritti Riservati")
  77. (set #where    "Dove tu desideri installare MADS?\n(Un Cassetto sarà creato)")
  78. (set #pp       "Io sto ora per installare il PowerPacker.library")
  79. (set #reqtools "Io sto ora per installare il Reqtools.library")
  80. (set #visit    "Per piacere Controlla il EMS Supportare sito:\n\nhttp://www.agima.demon.co.uk/emailsoft/") 
  81. (set #name     "Per piacere inserisci il tuo nime\n(Per aggiornamenti futuri)")                      
  82. (set #update   (cat 'Heilà '#who'\n\nIo cedo che tu hai versione '#usedversion' di MADS installato.\n\nAggiornare o Installare Completamente?'))
  83. (set #update2  "Aggiornare")
  84. (set #install  "Completo Install")
  85.                       
  86. ))
  87.  
  88. (if (= lng "français")
  89. (
  90.  
  91. (set #info     "Bienvenue dans le script d'installation de MADS!\n\nMADS est Copyright ©1997 Alvaro Thompson\nTous Droits Réservés.")
  92. (set #where    "Où voulez-vous installer MADS?\n(Un répertoire sera créé)")
  93. (set #pp       "Je vais installer maintenant la PowerPacker.library")
  94. (set #reqtools "Je vais installer maintenant la Reqtools.library")
  95. (set #visit    "Visitez le support EMS :\n\nhttp://www.agima.demon.co.uk/emailsoft/")
  96. (set #name     "Entrez votre nom SVP\n(Pour les prochaines versions)")
  97. (set #update   (cat 'Bonjour '#who'\n\nJe vois que vous avez déjà la version '#usedversion' de MADS Installée.\nDois-je simplement mettre à jour les fichiers ? ou voulez vous une installation complète?'))
  98. (set #update2  "Mise à jour")
  99. (set #install  "Installation Complète")
  100.  
  101. ))
  102.  
  103.  
  104.  
  105.  
  106. (message #info)
  107.  
  108.  
  109. (if (= (exists "ENV:MADS")
  110.  (set installorupdate
  111.   (askchoice
  112.    (prompt #update)
  113.    (help @askchoice-help)
  114.    (choices #update2 #install)
  115.    (default 0)
  116.    )
  117.   )
  118.  )
  119. ) 
  120.  
  121.  
  122. (if (= installorupdate 0)
  123.   ( 
  124.  
  125.     (message "Now Updating...")
  126.    
  127.       (makedir "T:MADS")
  128.       
  129.       (textfile
  130.         (dest "T:MADS/Version")
  131.         (append version)
  132.       )
  133.       
  134.       
  135.      (copyfiles
  136.       (help @copyfiles-help) 
  137.       (source "T:MADS/")
  138.       (dest "ENVARC:MADS/")
  139.       (all) 
  140.      ) 
  141.  
  142.      (copyfiles
  143.       (help @copyfiles-help)
  144.       (source "T:MADS/")
  145.       (dest "ENV:MADS/")
  146.       (all)
  147.      )
  148.  
  149.     (delete "T:MADS" (all))
  150.  
  151.     (set #where_to_install (getenv "MADS/Path"))
  152.  
  153.     (makedir (tackon #where_to_install "Programs"))
  154.     
  155.     (copyfiles
  156.      (help @copyfiles-help)
  157.      (source "/Programs/")
  158.      (dest (tackon #where_to_install "Programs/"))
  159.      (all)
  160.     )
  161.     
  162.     (copyfiles
  163.      (help @copyfiles-help)
  164.      (source "/Docs/") 
  165.      (dest (tackon #where_to_install "Docs/"))
  166.      (all)
  167.     )
  168.     
  169.     (copyfiles
  170.      (help @copyfiles-help)
  171.      (source "/Goodies/")
  172.      (dest (tackon #where_to_install "Goodies/"))
  173.      (all)
  174.     )
  175.     
  176.     (copyfiles
  177.      (help @copyfiles-help)
  178.      (source "/MADS")
  179.      (dest #where_to_install)
  180.     )
  181.     
  182.     (copyfiles
  183.      (help @copyfiles-help)
  184.      (source "/Docs.info")
  185.      (dest #where_to_install)
  186.     ) 
  187.  
  188.     (message #visit)
  189.  
  190.     (set @default-dest #where_to_install)
  191.  
  192.     (exit)
  193. ))
  194.  
  195.  
  196. (set destination
  197.  (askdir
  198.   (prompt #where)
  199.   (help @askdir-help)
  200.   (default "Sys:")
  201.  )
  202. )
  203.  
  204. (makedir (tackon destination "MADS"))
  205. (set trgt (tackon destination "MADS"))
  206.  
  207. (copyfiles
  208.  (help @copylib-help)
  209.  (source "/Fonts/")
  210.  (dest "FONTS:")
  211.  (all)
  212. )
  213.  
  214. (copylib
  215.  (prompt #reqtools)
  216.  (source "/Libs/reqtools.library")
  217.  (dest "LIBS:")
  218.  (help @copylibs-help)
  219. ) 
  220.  
  221. (copylib
  222.  (prompt #pp)
  223.  (source "/Libs/powerpacker.library")
  224.  (dest "LIBS:")
  225.  (help @copylibs-help)
  226. ) 
  227.  
  228. (copyfiles
  229.  (help @copyfiles-help)
  230.  (source "/")
  231.  (dest trgt)
  232.  (all)
  233. )
  234.  
  235. (copyfiles
  236.  (help @copyfiles-help)
  237.  (source "//MADS.info")
  238.  (dest destination)
  239. )
  240.  
  241. (delete (tackon trgt "Install" (all)))
  242. (delete (tackon trgt "Install.info"))
  243. (delete (tackon trgt "Fonts" (all)))
  244. (delete (tackon trgt "Fonts.info"))
  245. (delete (tackon trgt "Libs" (all)))
  246. (delete (tackon trgt "Libs.info"))
  247.  
  248. (set @default-dest trgt)
  249.  
  250. (makedir "ENVARC:MADS")
  251. (makedir "ENV:MADS")
  252. (makedir "T:MADS")
  253.  
  254. (set name
  255.  (askstring
  256.   (prompt #name)
  257.   (help @askstring-help)
  258.  )
  259. ) 
  260.  
  261. (textfile
  262.  (dest "T:MADS/Version")
  263.  (append version)
  264. )
  265.  
  266. (textfile
  267.  (dest "T:MADS/Path")
  268.  (append trgt)
  269. )
  270.  
  271. (textfile
  272.  (dest "T:MADS/Name")
  273.  (append name)
  274. )  
  275.  
  276. (copyfiles
  277.  (help @copyfiles-help)
  278.  (source "T:MADS/")
  279.  (dest "ENVARC:MADS/")
  280.  (all)
  281. ) 
  282.  
  283. (copyfiles
  284.  (help @copyfiles-help)
  285.  (source "T:MADS/")
  286.  (dest "ENV:MADS/")
  287.  (all)
  288. )
  289.  
  290. (delete "T:MADS" (all))
  291.  
  292. (message #visit)
  293.  
  294. (exit)
  295.